/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / page.elc.z / page.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 32 34 3a 31 31 20 31 |an 14 06|:24:11 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 70 61 67 65 2e 65 |19.0/lis|p/page.e|
|00000070| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000080| 69 6f 6e 20 31 39 2e 33 | 30 2e 37 30 2e 36 2e 0a |ion 19.3|0.70.6..|
|00000090| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000a0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000b0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000c0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000d0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000e0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|000000f0| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000100| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000110| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000120| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000130| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000140| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000150| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000160| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000170| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 2e 32 39 22 |-version| "19.29"|
|00000180| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|00000190| 60 70 61 67 65 2e 65 6c | 27 20 77 61 73 20 63 6f |`page.el|' was co|
|000001a0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001b0| 20 31 39 2e 32 39 20 6f | 72 20 6c 61 74 65 72 22 | 19.29 o|r later"|
|000001c0| 29 29 0a 0a 0a 23 40 31 | 35 36 20 4d 6f 76 65 20 |))...#@1|56 Move |
|000001d0| 66 6f 72 77 61 72 64 20 | 74 6f 20 70 61 67 65 20 |forward |to page |
|000001e0| 62 6f 75 6e 64 61 72 79 | 2e 20 20 57 69 74 68 20 |boundary|.  With |
|000001f0| 61 72 67 2c 20 72 65 70 | 65 61 74 2c 20 6f 72 20 |arg, rep|eat, or |
|00000200| 67 6f 20 62 61 63 6b 20 | 69 66 20 6e 65 67 61 74 |go back |if negat|
|00000210| 69 76 65 2e 0a 41 20 70 | 61 67 65 20 62 6f 75 6e |ive..A p|age boun|
|00000220| 64 61 72 79 20 69 73 20 | 61 6e 79 20 6c 69 6e 65 |dary is |any line|
|00000230| 20 77 68 6f 73 65 20 62 | 65 67 69 6e 6e 69 6e 67 | whose b|eginning|
|00000240| 20 6d 61 74 63 68 65 73 | 20 74 68 65 20 72 65 67 | matches| the reg|
|00000250| 65 78 70 0a 60 70 61 67 | 65 2d 64 65 6c 69 6d 69 |exp.`pag|e-delimi|
|00000260| 74 65 72 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ter'...(|defalias|
|00000270| 20 27 66 6f 72 77 61 72 | 64 2d 70 61 67 65 20 23 | 'forwar|d-page #|
|00000280| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 63 6f 75 6e |[(&optio|nal coun|
|00000290| 74 29 20 22 08 84 06 00 | c1 10 08 c2 56 83 29 00 |t) "....|....V.).|
|000002a0| 6d 84 29 00 6e 83 17 00 | c1 75 88 c3 5c 66 c5 c6 |m.).n...|.u..\f..|
|000002b0| 23 84 5c 22 00 64 62 88 | 08 53 89 10 82 07 00 08 |#.\".db.|.S......|
|000002c0| c2 57 85 65 00 6f 3f 85 | 65 00 8a c7 5c 66 c5 c6 |.W.e.o?.|e...\f..|
|000002d0| 23 29 83 49 00 c2 95 60 | 55 83 49 00 c2 94 62 88 |#).I...`|U.I...b.|
|000002e0| c8 75 88 c7 5c 66 c5 c6 | 23 83 5b 00 c2 95 62 88 |.u..\f..|#.[...b.|
|000002f0| 82 5e 00 65 62 88 08 54 | 89 10 82 2a 00 87 22 20 |.^.eb..T|...*.." |
|00000300| 5b 63 6f 75 6e 74 20 31 | 20 30 20 72 65 2d 73 65 |[count 1| 0 re-se|
|00000310| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 70 61 67 |arch-for|ward pag|
|00000320| 65 2d 64 65 6c 69 6d 69 | 74 65 72 20 6e 69 6c 20 |e-delimi|ter nil |
|00000330| 74 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |t re-sea|rch-back|
|00000340| 77 61 72 64 20 2d 31 5d | 20 35 20 28 23 24 20 2e |ward -1]| 5 (#$ .|
|00000350| 20 34 35 39 29 20 22 70 | 22 5d 29 0a 23 40 31 35 | 459) "p|"]).#@15|
|00000360| 36 20 4d 6f 76 65 20 62 | 61 63 6b 77 61 72 64 20 |6 Move b|ackward |
|00000370| 74 6f 20 70 61 67 65 20 | 62 6f 75 6e 64 61 72 79 |to page |boundary|
|00000380| 2e 20 20 57 69 74 68 20 | 61 72 67 2c 20 72 65 70 |.  With |arg, rep|
|00000390| 65 61 74 2c 20 6f 72 20 | 67 6f 20 66 77 64 20 69 |eat, or |go fwd i|
|000003a0| 66 20 6e 65 67 61 74 69 | 76 65 2e 0a 41 20 70 61 |f negati|ve..A pa|
|000003b0| 67 65 20 62 6f 75 6e 64 | 61 72 79 20 69 73 20 61 |ge bound|ary is a|
|000003c0| 6e 79 20 6c 69 6e 65 20 | 77 68 6f 73 65 20 62 65 |ny line |whose be|
|000003d0| 67 69 6e 6e 69 6e 67 20 | 6d 61 74 63 68 65 73 20 |ginning |matches |
|000003e0| 74 68 65 20 72 65 67 65 | 78 70 0a 60 70 61 67 65 |the rege|xp.`page|
|000003f0| 2d 64 65 6c 69 6d 69 74 | 65 72 27 2e 1f 0a 28 64 |-delimit|er'...(d|
|00000400| 65 66 61 6c 69 61 73 20 | 27 62 61 63 6b 77 61 72 |efalias |'backwar|
|00000410| 64 2d 70 61 67 65 20 23 | 5b 28 26 6f 70 74 69 6f |d-page #|[(&optio|
|00000420| 6e 61 6c 20 63 6f 75 6e | 74 29 20 22 08 84 06 00 |nal coun|t) "....|
|00000430| c1 10 c2 08 5b 21 87 22 | 20 5b 63 6f 75 6e 74 20 |....[!."| [count |
|00000440| 31 20 66 6f 72 77 61 72 | 64 2d 70 61 67 65 5d 20 |1 forwar|d-page] |
|00000450| 32 20 28 23 24 20 2e 20 | 38 36 36 29 20 22 70 22 |2 (#$ . |866) "p"|
|00000460| 5d 29 0a 23 40 31 38 32 | 20 50 75 74 20 6d 61 72 |]).#@182| Put mar|
|00000470| 6b 20 61 74 20 65 6e 64 | 20 6f 66 20 70 61 67 65 |k at end| of page|
|00000480| 2c 20 70 6f 69 6e 74 20 | 61 74 20 62 65 67 69 6e |, point |at begin|
|00000490| 6e 69 6e 67 2e 0a 41 20 | 6e 75 6d 65 72 69 63 20 |ning..A |numeric |
|000004a0| 61 72 67 20 73 70 65 63 | 69 66 69 65 73 20 74 6f |arg spec|ifies to|
|000004b0| 20 6d 6f 76 65 20 66 6f | 72 77 61 72 64 20 6f 72 | move fo|rward or|
|000004c0| 20 62 61 63 6b 77 61 72 | 64 20 62 79 20 74 68 61 | backwar|d by tha|
|000004d0| 74 20 6d 61 6e 79 20 70 | 61 67 65 73 2c 0a 74 68 |t many p|ages,.th|
|000004e0| 75 73 20 6d 61 72 6b 69 | 6e 67 20 61 20 70 61 67 |us marki|ng a pag|
|000004f0| 65 20 6f 74 68 65 72 20 | 74 68 61 6e 20 74 68 65 |e other |than the|
|00000500| 20 6f 6e 65 20 70 6f 69 | 6e 74 20 77 61 73 20 6f | one poi|nt was o|
|00000510| 72 69 67 69 6e 61 6c 6c | 79 20 69 6e 2e 1f 0a 28 |riginall|y in...(|
|00000520| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 72 6b 2d 70 |defalias| 'mark-p|
|00000530| 61 67 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |age #[(&|optional|
|00000540| 20 61 72 67 29 20 22 08 | 83 5c 6e 00 c1 08 21 82 | arg) ".|.\n...!.|
|00000550| 0b 00 c2 89 10 c2 56 83 | 19 00 c3 08 21 88 82 24 |......V.|....!..$|
|00000560| 00 08 c2 57 83 24 00 c3 | 08 53 21 88 c3 20 88 c4 |...W.$..|.S!.. ..|
|00000570| c5 c6 89 23 88 c3 c7 21 | 87 22 20 5b 61 72 67 20 |...#...!|." [arg |
|00000580| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|00000590| 61 6c 75 65 20 30 20 66 | 6f 72 77 61 72 64 2d 70 |alue 0 f|orward-p|
|000005a0| 61 67 65 20 70 75 73 68 | 2d 6d 61 72 6b 20 6e 69 |age push|-mark ni|
|000005b0| 6c 20 74 20 2d 31 5d 20 | 35 20 28 23 24 20 2e 20 |l t -1] |5 (#$ . |
|000005c0| 31 31 32 39 29 20 22 50 | 22 5d 29 0a 23 40 31 37 |1129) "P|"]).#@17|
|000005d0| 39 20 4d 61 6b 65 20 74 | 65 78 74 20 6f 75 74 73 |9 Make t|ext outs|
|000005e0| 69 64 65 20 63 75 72 72 | 65 6e 74 20 70 61 67 65 |ide curr|ent page|
|000005f0| 20 69 6e 76 69 73 69 62 | 6c 65 2e 0a 41 20 6e 75 | invisib|le..A nu|
|00000600| 6d 65 72 69 63 20 61 72 | 67 20 73 70 65 63 69 66 |meric ar|g specif|
|00000610| 69 65 73 20 74 6f 20 6d | 6f 76 65 20 66 6f 72 77 |ies to m|ove forw|
|00000620| 61 72 64 20 6f 72 20 62 | 61 63 6b 77 61 72 64 20 |ard or b|ackward |
|00000630| 62 79 20 74 68 61 74 20 | 6d 61 6e 79 20 70 61 67 |by that |many pag|
|00000640| 65 73 2c 0a 74 68 75 73 | 20 73 68 6f 77 69 6e 67 |es,.thus| showing|
|00000650| 20 61 20 70 61 67 65 20 | 6f 74 68 65 72 20 74 68 | a page |other th|
|00000660| 61 6e 20 74 68 65 20 6f | 6e 65 20 70 6f 69 6e 74 |an the o|ne point|
|00000670| 20 77 61 73 20 6f 72 69 | 67 69 6e 61 6c 6c 79 20 | was ori|ginally |
|00000680| 69 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |in...(de|falias '|
|00000690| 6e 61 72 72 6f 77 2d 74 | 6f 2d 70 61 67 65 20 23 |narrow-t|o-page #|
|000006a0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|000006b0| 20 22 08 83 5c 6e 00 c1 | 08 21 82 0b 00 c2 10 8a | "..\n..|.!......|
|000006c0| 7e 88 08 c2 56 83 1c 00 | c3 08 21 88 82 27 00 08 |~...V...|..!..'..|
|000006d0| c2 57 83 27 00 c3 08 53 | 21 88 c3 20 88 8a c2 94 |.W.'...S|!.. ....|
|000006e0| 62 88 c4 0d 21 29 83 39 | 00 c2 79 88 60 c3 c6 21 |b...!).9|..y.`..!|
|000006f0| 88 6c 83 49 00 6f 84 49 | 00 c7 79 88 60 7d 29 87 |.l.I.o.I|..y.`}).|
|00000700| 22 20 5b 61 72 67 20 70 | 72 65 66 69 78 2d 6e 75 |" [arg p|refix-nu|
|00000710| 6d 65 72 69 63 2d 76 61 | 6c 75 65 20 30 20 66 6f |meric-va|lue 0 fo|
|00000720| 72 77 61 72 64 2d 70 61 | 67 65 20 6c 6f 6f 6b 69 |rward-pa|ge looki|
|00000730| 6e 67 2d 61 74 20 70 61 | 67 65 2d 64 65 6c 69 6d |ng-at pa|ge-delim|
|00000740| 69 74 65 72 20 2d 31 20 | 31 5d 20 33 20 28 23 24 |iter -1 |1] 3 (#$|
|00000750| 20 2e 20 31 34 39 30 29 | 20 22 50 22 5d 29 0a 28 | . 1490)| "P"]).(|
|00000760| 70 75 74 20 28 71 75 6f | 74 65 20 6e 61 72 72 6f |put (quo|te narro|
|00000770| 77 2d 74 6f 2d 70 61 67 | 65 29 20 28 71 75 6f 74 |w-to-pag|e) (quot|
|00000780| 65 20 64 69 73 61 62 6c | 65 64 29 20 74 29 0a 23 |e disabl|ed) t).#|
|00000790| 40 38 31 20 52 65 70 6f | 72 74 20 6e 75 6d 62 65 |@81 Repo|rt numbe|
|000007a0| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 6e 20 63 75 |r of lin|es on cu|
|000007b0| 72 72 65 6e 74 20 70 61 | 67 65 2c 20 61 6e 64 20 |rrent pa|ge, and |
|000007c0| 68 6f 77 20 6d 61 6e 79 | 20 61 72 65 20 62 65 66 |how many| are bef|
|000007d0| 6f 72 65 20 6f 72 20 61 | 66 74 65 72 20 70 6f 69 |ore or a|fter poi|
|000007e0| 6e 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nt...(de|falias '|
|000007f0| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 2d 70 61 67 65 |count-li|nes-page|
|00000800| 20 23 5b 6e 69 6c 20 22 | 8a 60 c0 89 89 89 89 19 | #[nil "|.`......|
|00000810| 1a 1b 1c 1d 1e 06 c7 20 | 88 c8 79 88 c9 0e 5c 6e |....... |..y...\n|
|00000820| 21 84 1e 00 c0 7f 88 60 | 14 cb 20 88 60 15 cc 0d |!......`|.. .`...|
|00000830| 5c 66 5c 22 13 cc 0d 0e | 06 5c 22 12 cc 0e 06 5c |\f\"....|.\"....\|
|00000840| 66 5c 22 11 cd ce 0b 5c | 6e 09 24 2e 07 87 22 20 |f\"....\|n.$..." |
|00000850| 5b 6e 69 6c 20 61 66 74 | 65 72 20 62 65 66 6f 72 |[nil aft|er befor|
|00000860| 65 20 74 6f 74 61 6c 20 | 65 6e 64 20 62 65 67 20 |e total |end beg |
|00000870| 6f 70 6f 69 6e 74 20 66 | 6f 72 77 61 72 64 2d 70 |opoint f|orward-p|
|00000880| 61 67 65 20 30 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |age 0 lo|oking-at|
|00000890| 20 70 61 67 65 2d 64 65 | 6c 69 6d 69 74 65 72 20 | page-de|limiter |
|000008a0| 62 61 63 6b 77 61 72 64 | 2d 70 61 67 65 20 63 6f |backward|-page co|
|000008b0| 75 6e 74 2d 6c 69 6e 65 | 73 20 6d 65 73 73 61 67 |unt-line|s messag|
|000008c0| 65 20 22 50 61 67 65 20 | 68 61 73 20 25 64 20 6c |e "Page |has %d l|
|000008d0| 69 6e 65 73 20 28 25 64 | 20 2b 20 25 64 29 22 5d |ines (%d| + %d)"]|
|000008e0| 20 36 20 28 23 24 20 2e | 20 31 39 34 30 29 20 6e | 6 (#$ .| 1940) n|
|000008f0| 69 6c 5d 29 0a 23 40 33 | 38 20 50 72 69 6e 74 20 |il]).#@3|8 Print |
|00000900| 70 61 67 65 20 61 6e 64 | 20 6c 69 6e 65 20 6e 75 |page and| line nu|
|00000910| 6d 62 65 72 20 6f 66 20 | 70 6f 69 6e 74 2e 1f 0a |mber of |point...|
|00000920| 28 64 65 66 61 6c 69 61 | 73 20 27 77 68 61 74 2d |(defalia|s 'what-|
|00000930| 70 61 67 65 20 23 5b 6e | 69 6c 20 22 8c 7e 88 8a |page #[n|il ".~..|
|00000940| c0 79 88 c1 60 1a 1b c1 | 62 88 c4 0d 5c 6e c6 23 |.y..`...|b...\n.#|
|00000950| 83 1c 00 0b 54 13 82 0e | 00 c7 c8 0b c9 60 5c 6e |....T...|.....`\n|
|00000960| 5c 22 54 23 2c 87 22 20 | 5b 30 20 31 20 6f 70 6f |\"T#,." |[0 1 opo|
|00000970| 69 6e 74 20 63 6f 75 6e | 74 20 72 65 2d 73 65 61 |int coun|t re-sea|
|00000980| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 70 61 67 65 |rch-forw|ard page|
|00000990| 2d 64 65 6c 69 6d 69 74 | 65 72 20 74 20 6d 65 73 |-delimit|er t mes|
|000009a0| 73 61 67 65 20 22 50 61 | 67 65 20 25 64 2c 20 6c |sage "Pa|ge %d, l|
|000009b0| 69 6e 65 20 25 64 22 20 | 63 6f 75 6e 74 2d 6c 69 |ine %d" |count-li|
|000009c0| 6e 65 73 5d 20 36 20 28 | 23 24 20 2e 20 32 32 39 |nes] 6 (|#$ . 229|
|000009d0| 38 29 20 6e 69 6c 5d 29 | 0a 28 70 72 6f 76 69 64 |8) nil])|.(provid|
|000009e0| 65 20 28 71 75 6f 74 65 | 20 70 61 67 65 29 29 0a |e (quote| page)).|
+--------+-------------------------+-------------------------+--------+--------+